Private Sub btn_Click()

    Dim ׸ As Integer
    Dim Էġ As Range

    ׸ = lst.ListIndex

    If ׸ > -1 Then

        Set Էġ = Cells(Rows.Count, "I").End(xlUp).Offset(1)

        With Էġ
            .Value = lst.List(׸, 0)
            .Offset(, 1).Value = lst.List(׸, 1)
            .Offset(, 2).Value = lst.List(׸, 2)
        End With

        With Էġ.Resize(1, 3)
            .HorizontalAlignment = xlCenter
            .Borders.LineStyle = xlContinuous
        End With

    End If

End Sub